COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FUNCTION ZERO(ARRAY Foo)
C00013 ENDMK
C⊗;
FUNCTION ZERO(ARRAY Foo);
  BEGIN VARIABLE Len,I;
   Len←LENGTH(Foo)-1;
   FOR I←0 STEP 1 UNTIL Len DO Foo(I)←0;
  END;